CAASun_EquatorialRectangularCoordinatesJ2000 <-
function(JD){
.Call("CAASun_EquatorialRectangularCoordinatesJ2000", JD)
}
